Top 10k strings from Fairshare (1984)(Griffin Software)(Side A)[a].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 ;"How many";
   2 yp=yp+dr+7
   2 FAIRSHARE1
   2 ;y$;y$;y$;y$;
   2 ;"  Yes   ";
   2 ;"  Good  "
   2 ;"        ";
   1 usr       
   1 ti=ti+(c$>"  "):
   1 rem=div-ans*by
   1 query=rem:
   1 query=ans:
   1 logo      
   1 j-x2,y;"G"
   1 intro=4000
   1 h-x2,v;"J"
   1 getrem=840
   1 getpic=900
   1 getans=830
   1 file      'O
   1 fairshare1
   1 fadeout=940
   1 fadein=930
   1 c$<query;"  Less  "
   1 boxes are at 21,y/8
   1 b(p)=b(p)+1
   1 b$="remainder":
   1 b$="Press any key":
   1 at upwards intervals of y1/8
   1 action=800
   1 Recording           
   1 NUMBERS=85
   1 LIBRARY ROUTINES
   1 CDBTKLABABABCDEFGHCDAJKLBABUMNNMMDKLCONDKLMPATATCDQJKLCRKSAT
   1 BOXES=1500
   1 ;z$;z$;z$;z$;
   1 ;z$;z$;z$;z$:
   1 ;"picture "
   1 ;"in each ";
   1 ;"boxes ? ";
   1 ;"UPPER CASE";
   1 ;"Type in file name in ";
   1 ;"Stop and rewind tape"
   1 ;"SAVE""file"" LINE 2"
   1 ;"PLEASE  WAIT";
   1 ;"NOCRTTCOCDANDACRTCOCD";
   1 ;"Load main program"
   1 ;"Leave tape running"
   1 ;"IAMDABTABTTH";
   1 ;"CDAAAAAAAAAB";
   1 ;"BAKSTTAAKLABTAKSTAAKL"
   1 ;"BABTTTH";
   1 ;" over?  ";
   1 ;" box?   ";
   1 ;" Choose ";
   1 ;"  your  ";
   1 ;"  left  ";
   1 ;"  LOADING   ";:
   1 ;"                    "
   1 ;"                               "
   1 +y5;"89:;<=";
   1 +y5;"234567";
   1 +y5;",-./01";
   1 +y5;"$%&'"
   1 +y5;" please ":
   1 +y5;" again, ";
   1 +y5;" !""#";
   1 +y5;"  than  ";
   1 +y5;"  Try   ";
   1 +y5;"  More  "
   1 +y5;"   ";c$;"   ":
   1 *ZOB;a$+a$(
   1 *(b(j)=ans):
   1 )="NMMDKL"
   1 )="MPATAT"
   1 )="CRKSAT"
   1 )="CONDKL":
   1 )="CDQJKL":
   1 )="CDEFGH":
   1 )="CDBTKL":
   1 )="CDAJKL"
   1 )="BABUMN":
   1 )="ABABAB"
   1 "clear (y/n) ?";q$
   1 "address ? ";x
   1 "Filename",a$
   1 "FAIRSHARE1"
   1 "  fish  ","starfish"," shells ","anemones"," crabs  "," ships  "," boots  ","treasure"
   1   fish  starfish shells anemones crabs   ships   boots  treasure
   1                                 ":
   1